home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
twm-listing 7
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
475b
|
27 lines
0 rem box-demo 1
5 :
10 sys 32168
20 :
30 rem texte nach b$(), farben nach f()
35 rem anzahl nach bn
40 bn=10 :dim b$(bn),f(bn)
50 for b=1 to bn
60 b$(b)="box"+str$(b)
70 f(b)=(f(b-1)+1)and15 :if f(b)<2 then f(b)=2
80 next
90 :
100 (NULL) :z=0 :s=0
110 for b=1 to bn
120 s2=s+len(b$(b))+1
130 if s2>39 then z=z+3 :s=0 :goto 120
140 (NULL) z+1,s+1,f(b),b$(b)
150 (NULL) f(b),z,s,z+2,s2
160 (NULL)b,z,s,z+2,s2,f(b)+128
170 s=s2+1
180 next b
190 :
200 b=5
210 (NULL) b
220 :
230 (NULL) 10,1,"sie haben nr."+str$(b)+" ausgewaehlt !"